home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / Database / Foxpro 2.06 Win / PUTPANEL.PR_ / PUTPANEL.bin
Text File  |  1994-03-11  |  2KB  |  91 lines
  1. PROCEDURE putpanel
  2. PARAMETERS m.p_wind, m.centered, m.r1,m.c1,m.r2,m.c2,m.rbord_width,;
  3.     m.cbord_width,m.fntname,m.fntsize,m.fntstyle
  4. * Paint a chiseled panel from r1,c1 to r2,c2 with a chiseled border of 
  5. * rbord_width pixels along the side and cbord_width pixels along the top
  6. * and bottom.
  7. IF PARAMETERS() <= 10
  8.    m.fntstyle = ""
  9. ENDIF    
  10. IF PARAMETERS() <= 9
  11.    m.fntsize = 8.00
  12. ENDIF    
  13. IF PARAMETERS() <= 8
  14.    m.fntname = "MS Sans Serif"
  15. ENDIF    
  16. IF PARAMETERS() <= 7
  17.    m.cbord_width = 0.7
  18. ENDIF    
  19. IF PARAMETERS() <= 6
  20.    m.rbord_width = 0.5
  21. ENDIF    
  22.  
  23. m.r2 = MIN(m.r2,WROWS())
  24. m.c2 = MIN(m.c2,WCOLS())
  25.  
  26. IF ! _DOS
  27.   DEFINE WINDOW (p_wind) ;
  28.     FROM m.r1,m.c1 ;
  29.        TO m.r2,m.c2 ;
  30.     FONT m.fntname,m.fntsize ;
  31.     STYLE m.fntstyle ;
  32.     NOFLOAT ;
  33.     NOCLOSE ;
  34.     NONE ;
  35.     COLOR RGB(0, 0, 0, 192, 192, 192)
  36. ELSE
  37.   DEFINE WINDOW (p_wind) ;
  38.     FROM m.r1,m.c1 ;
  39.        TO m.r2,m.c2 ;
  40.     NOFLOAT ;
  41.     NOCLOSE ;
  42.     SHADOW  ;
  43.     NOMINIMIZE ;
  44.     DOUBLE ;
  45.     COLOR SCHEME 5
  46. ENDIF
  47.  
  48. IF m.centered
  49.    MOVE WINDOW (m.p_wind) CENTER
  50. ENDIF  
  51.  
  52. ACTIVATE WINDOW (m.p_wind)
  53.  
  54. IF ! _DOS
  55.     * Map screen coordinates to window coordinates
  56.     m.c2 = WCOLS()-.16
  57.     m.r2 = WROWS()-.1
  58.  
  59.     * Dark edge along top of indented area    
  60.     @ m.rbord_width,m.cbord_width TO m.rbord_width,m.c2-m.cbord_width ;
  61.         PEN 0 ;
  62.         COLOR RGB(128, 128, 128, 128, 128, 128)
  63.     * Dark edge along left side of indented area    
  64.     @ m.rbord_width,m.cbord_width TO m.r2-m.rbord_width,m.cbord_width ;
  65.         PEN 0 ;
  66.          COLOR RGB(128, 128, 128, 128, 128, 128)
  67.     * Dark edge along bottom    
  68.     @ m.r2,0 TO m.r2,m.c2 ;
  69.         PEN 0 ;
  70.         COLOR RGB(128, 128, 128, 128, 128, 128)
  71.     * Dark edge along right side    
  72.     @ 0,m.c2 TO m.r2,m.c2 ;
  73.         PEN 0 ;
  74.         COLOR RGB(128, 128, 128, 128, 128, 128)
  75.     * Light edge along top
  76.     @ 0,0 TO 0,m.c2 ;
  77.         PEN 0 ;
  78.         COLOR RGB(255, 255, 255, 255, 255, 255)
  79.     * Light edge down left side    
  80.     @ 0,0 TO m.r2,0 ;
  81.         PEN 0 ;
  82.         COLOR RGB(255, 255, 255, 255, 255, 255)
  83.     * Light edge along bottom of indented area    
  84.     @ m.r2-m.rbord_width,m.cbord_width TO m.r2-m.rbord_width,m.c2-m.cbord_width ;
  85.         PEN 0 ;
  86.         COLOR RGB(255, 255, 255, 255, 255, 255)
  87.     * Light edge along right side of indented area    
  88.     @ m.rbord_width,m.c2-m.cbord_width TO m.r2-m.rbord_width,m.c2-m.cbord_width ;
  89.         PEN 0 ;
  90.         COLOR RGB(255, 255, 255, 255, 255, 255)
  91. ENDIF